ARRAY FOO(512),BAZ(512);
SYNTH(FOO);
1,1,0,0
3,.333,0,0
5,.2,0,0
7,.1428,0,0
999
SEG(BAZ);
1,5
.5,15
.3333,25
.25,35
.2,45
.16666,55
.1428,65
.125,75
.1,100
COMPILE;
INSTRUMENT A1;
OSCIL[10](P4,MAG/0.2,XYZ);
OSCIL[10](U1,10*MAG/P2,BAZ);
OSCIL(U2,P3*MAG,FOO);
OUTA←OUTA+U3;
END;
INSTRUMENT A2;
OSCIL[10](P4,MAG/0.2,XYZ);
OSCIL[10](U1,10*MAG/P2,BAZ);
OSCIL(U2,P3*MAG,FOO);
OUTA←OUTA+U3;
END;
FINISH;
PRINT(123);
PLAY;A1 0 1 440 500;FINISH;